COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE OUT
C00004 ENDMK
C⊗;
	TITLE OUT
	ENTRY TYPCHR,TYPDEC,TYPCRLF,TYPSTR,TYPWRD,TYPFLT

TYPFLT:	0			;CALL TYPFLT(F)
	MOVM 4,@(16)	;NEEDS ACS 1→5
	KIFIX 3,@(16)
	FMPR 4,[1000.0]		;TO GET THINGS TO RT. OF DEC.
	FADR 4,[0.5]		;FOR ROUND OFF.
	KIFIX 4,4
	IDIVI 4,=1000		;REMAINDER IS IN AC6
	JSA 16,TYPDEC
	JUMP 3
	OUTCHR ["."]	;DECIMAL PT.
	JSA 16,TYPDEC
	JUMP 5
	JRA 16,1(16)

TYPCHR:	0
	SKIPL 1,@1(16)
	JRST TYPCH2
	OUTSTR @(16)
TYPCH1:	JRA 16,2(16)
TYPCH2:	MOVSI 2,440700
	HRRI 2,@(16)
TYPCH3:	SOJL 1,TYPCH1
	ILDB 3,2
	OUTCHR 3
	JRST TYPCH3

TYPSTR:	0
	OUTSTR @(16)
	JRA 16,1(16)

TYPWRD:	0
	MOVSI 2,440700
	HRRI 2,@(16)
	MOVEI 1,5
TYPWR1:	ILDB 3,2
	OUTCHR 3
	SOJG 1,TYPWR1
	JRA 16,1(16)

TYPCRLF:	0
	OUTSTR [ASCIZ /
/]
	JRA 16,(16)

TYPDEC:	0  
	SKIPGE 1,@(16)
	OUTCHR ["-"]
	MOVMS 1
	JUMPL 1,[OUTSTR [ASCIZ /34359738368/]
		JRA 16,1(16)]
	PUSHJ 17,DECREC
	JRA 16,1(16)
DECREC:	IDIVI 1,=10
	HRLM 2,(17)
	SKIPE 1
	PUSHJ 17,DECREC
	HLRZ 1,(17)
	ADDI 1,"0"
	OUTCHR 1
	POPJ 17,
	END